print("Bahnhof-Logik Version 1")
w1 <- as.numeric(readline("Bitte geben Sie die Stellung fr Weiche 1 (1/0) ein: "))
w2 <- as.numeric(readline("Bitte geben Sie die Stellung fr Weiche 2 (1/0) ein: "))
w3 <- as.numeric(readline("Bitte geben Sie die Stellung fr Weiche 3 (1/0) ein: "))

print(paste("Der Zug fhrt ein in Bahnhof:", as.numeric(  ( (w1 && w2) || (!w1 && w3) || (w1 && !w2 && w3) ))))
